home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / boot / selector90.lha / Selector / pref / colorreq.sel < prev    next >
Text File  |  1998-10-20  |  814b  |  52 lines
  1. version 9
  2.  
  3. defenv r 4
  4. defenv rr 4
  5. defenv g 6
  6. defenv gg 6
  7. defenv b 9
  8. defenv bb 9
  9.  
  10. size 1
  11.  
  12. windowsize 19 4.2
  13. setpen 15.6 1.9
  14. changesize 6
  15. startbox
  16. button OK exit [r][g][b]
  17. button Cancel exit
  18. endbox
  19.  
  20. [sj]
  21.  
  22. changesize 1
  23. drawcol red
  24. draw filledbox 0 0 [rr] 1
  25. drawcol black
  26. draw box 0 0 15 1
  27. area 0 0 16 1 lastxpos rr 'eval >env:r $rr lformat %X' update
  28.  
  29. drawcol green
  30. draw filledbox 0 1 [gg] 2
  31. drawcol black
  32. draw box 0 1 15 2
  33. area 0 1 16 2 lastxpos gg 'eval >env:g $gg lformat %X' update
  34.  
  35. drawcol blue
  36. draw filledbox 0 2 [bb] 3
  37. drawcol black
  38. draw box 0 2 15 3
  39. area 0 2 16 3 lastxpos bb 'eval >env:b $bb lformat %X' update
  40.  
  41. setpen 7.3 0
  42. textcol white
  43. text Red
  44. text Green
  45. text Blue
  46. text 'Color: [r][g][b]'
  47.  
  48. drawcol [r][g][b]
  49. draw FilledBox 15.4782 .2352 18.1304 1.3529
  50. drawcol black
  51. draw Box 15.4782 .2352 18.1304 1.3529
  52.